home *** CD-ROM | disk | FTP | other *** search
- Subject: v16i139: Smithsonian Astronomical Observatory, Patch1
- Newsgroups: comp.sources.unix
- Approved: rsalz@uunet.UU.NET
-
- Submitted-by: Alan Wm Paeth <awpaeth@watcgl.waterloo.edu>
- Posting-number: Volume 16, Issue 139
- Archive-name: sao/patch1
-
- [ You might have seen this patch in comp.sources.d or c.s.bugs; I took it
- and turned it into a real-style context diff, which is what most folks
- are used to -- not a diff against the shar file. --r$ ]
-
- /Alan
-
- #! /bin/sh
- # This is a shell archive. Remove anything before this line, then unpack
- # it by saving it into a file and typing "sh file". To overwrite existing
- # files, type "sh file -c". You can also feed this as standard input via
- # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
- # will see the following message at the end:
- # "End of shell archive."
- # Contents: stardust.pch
- # Wrapped by rsalz@fig.bbn.com on Wed Dec 14 19:22:44 1988
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- if test -f 'stardust.pch' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'stardust.pch'\"
- else
- echo shar: Extracting \"'stardust.pch'\" \(1551 characters\)
- sed "s/^X//" >'stardust.pch' <<'END_OF_FILE'
- X*** stardust.c.BAK Wed Dec 14 19:18:09 1988
- X--- stardust.c Wed Dec 14 19:20:04 1988
- X***************
- X*** 1,9 ****
- X--- 1,16 ----
- X /*
- X * stardust.c -- (un)pulverize files into dust more digestable by compress
- X+ * (VERSION #2)
- X *
- X * stardust -e <file.star | compress >small # encode for better compression
- X * uncompress small | stardust >file.star # decode after decompress
- X *
- X+ * updated Dec 1988 with thanks to Dave Yearke (bitnet: sunybcs!sigmast!dgy)
- X+ * The patches handle character versus integer machine incompatabilities.
- X+ *
- X+ * The release also squelches a compiler ambiguity error inadvertantly omitted
- X+ * in the original (December, 1988) posting to comp.sources.unix (ver 0->ver1).
- X+ *
- X * copyright (c) 1988 by Alan Paeth (awpaeth@watcgl)
- X */
- X
- X***************
- X*** 42,58 ****
- X cline(bo, ba, bb)
- X char *bo, *ba, *bb;
- X {
- X! int i;
- X for (i=0; i<BS; i++)
- X {
- X! char c, t;
- X! c = *ba++ - (t=*bb++);
- X if (t != '0')
- X {
- X if (c < 0) c += 10;
- X if (en && ((c < 0) || (c > 9))) err("non-digit or non-match");
- X }
- X! *bo++ = c + '0';
- X }
- X }
- X
- X--- 49,64 ----
- X cline(bo, ba, bb)
- X char *bo, *ba, *bb;
- X {
- X! int i, c, t; /* ver 2 -- c, t: are now ints */
- X for (i=0; i<BS; i++)
- X {
- X! c = *ba++ - (t = *bb++); /* ver 1 -- "=*bb" in bogus net copy */
- X if (t != '0')
- X {
- X if (c < 0) c += 10;
- X if (en && ((c < 0) || (c > 9))) err("non-digit or non-match");
- X }
- X! *bo++ = (char)c + '0'; /* ver 2 -- must now recast "c" */
- X }
- X }
- X
- END_OF_FILE
- if test 1551 -ne `wc -c <'stardust.pch'`; then
- echo shar: \"'stardust.pch'\" unpacked with wrong size!
- fi
- # end of 'stardust.pch'
- fi
- echo shar: End of shell archive.
- exit 0
-